ocr: TekcTbl mpouenyp: Dim Sesia(1 To 5) As Rezultat, I As Integer Private Sub Commandl Click() Sesia(I).NameExam(1) = "ouauka" Sesia(1).NameExam (2) = "MaremaTuka - Sesia(I).NameExam - (3) - - "Mcropua" Textl.Setrocus Sesia(I).Familia = Textl.Text Sesia(I).RezultExam (1) = Val(Text2.Text) Sesia(1).kezultExam (2) = Val(Text3.Text) Sesiat1).AezuitExam (3) = Val(Text4.Text) Textl.Text = : rext2.Text = - :n Text3.Text = :n Text4.Text = : - I=I+ 1 If I > 5 Then Commandl.Enabled = False Command2.Enabled = True Text5.Setrocus End If End Sub Private Sub Command2 Clicki) Dim Sredn As Single, Familia As Str ...
